home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Aminet 22
/
Aminet 22 (1997)(GTI - Schatztruhe)[!][Dec 1997].iso
/
Aminet
/
dev
/
amos
/
amos_col.lha
/
AMOS-COL
/
Palette.amos
/
Palette.amosSourceCode
Wrap
AMOS Source Code
|
1980-01-10
|
473b
|
28 lines
'By Delta/Opium
'
'�ukasz �elezny
'ul. W�oska 4D/6
'42-612 Tarnowskie G�ry
'Poland
'
'Date: 05.1997
'
'
'
'Only for Accesory
_PALETTE
Procedure _PALETTE
'By Delta/Opium
Set Accessory : Rem Set for Accesory
ADAT=Leek(Dreg(3)) : Rem 1st adress
Doke ADAT+28,$0
Doke ADAT+30,$0
Doke ADAT+32,$222
Doke ADAT+34,$FFF
Doke ADAT+36,$555
Doke ADAT+38,$CCC
Doke ADAT+40,$888
Doke ADAT+42,$FFF
Call Editor 182,100,"Delta"
End Proc